home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / CirclusMaximus™ / card_2526.txt < prev    next >
Text File  |  1991-03-02  |  3KB  |  138 lines
  1. -- card: 2526 from stack: in
  2. -- bmap block id: 5047
  3. -- flags: 4000
  4. -- background id: 2238
  5. -- name: Plain Circle
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Circumference
  11.   get card field "Diameter"*pi
  12.   put it into card field "Circumference"
  13.  
  14.   --Calculate Area
  15.   get (pi*(card field "Diameter"^2))/4
  16.   put it into card field "Area"
  17.  
  18.   --Calculate Radius
  19.   get card field "Diameter"/2
  20.   put it into card field "Radius"
  21.  
  22.   --Calculate Equal Periphery Square
  23.   get card field "Diameter"*.78540
  24.   put it into card field "Equal Periphery Square"
  25.  
  26.   --Calculate Square In Circle
  27.   get card field "Diameter"*.70711
  28.   put it into card field "Square in Circle"
  29. end mouseUp
  30.  
  31.  
  32. -- part 3 (field)
  33. -- low flags: 00
  34. -- high flags: 0002
  35. -- rect: left=46 top=88 right=105 bottom=152
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 3
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Diameter
  44.  
  45.  
  46. -- part 4 (field)
  47. -- low flags: 01
  48. -- high flags: 0004
  49. -- rect: left=308 top=92 right=111 bottom=456
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Circumference
  58.  
  59.  
  60. -- part 5 (field)
  61. -- low flags: 01
  62. -- high flags: 0004
  63. -- rect: left=308 top=118 right=137 bottom=456
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Area
  72.  
  73.  
  74. -- part 6 (field)
  75. -- low flags: 01
  76. -- high flags: 0004
  77. -- rect: left=308 top=144 right=163 bottom=456
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Radius
  86.  
  87.  
  88. -- part 7 (field)
  89. -- low flags: 01
  90. -- high flags: 0004
  91. -- rect: left=316 top=228 right=247 bottom=464
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Equal Periphery Square
  100.  
  101.  
  102. -- part 8 (field)
  103. -- low flags: 01
  104. -- high flags: 0004
  105. -- rect: left=316 top=261 right=280 bottom=464
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Square In Circle
  114.  
  115.  
  116. -- part contents for card part 3
  117. ----- text -----
  118. 1.000000
  119.  
  120. -- part contents for card part 4
  121. ----- text -----
  122. 3.141593
  123.  
  124. -- part contents for card part 5
  125. ----- text -----
  126. 0.785398
  127.  
  128. -- part contents for card part 6
  129. ----- text -----
  130. 0.500000
  131.  
  132. -- part contents for card part 7
  133. ----- text -----
  134. 0.785400
  135.  
  136. -- part contents for card part 8
  137. ----- text -----
  138. 0.707110